home *** CD-ROM | disk | FTP | other *** search
/ Art Fundamentals - Core Concepts in Art / Art Fundamentals: Core Concepts in Art.iso / pc / txture_p.dxr / 00067.ls < prev    next >
Encoding:
Text File  |  2001-07-16  |  281 b   |  11 lines
  1. on mouseDown
  2.   global pointcolorR, pointcolorG, pointcolorB
  3.   if the doubleClick then
  4.     pointcolorR = random(255)
  5.     pointcolorG = random(255)
  6.     pointcolorB = random(255)
  7.     member("moon").fillColor = rgb(pointcolorR, pointcolorG, pointcolorB)
  8.     updateStage()
  9.   end if
  10. end
  11.